﻿Namespace Database
    Public Class clsAttribute
        Private m_sName As String
        Private m_sType As String
        Private m_pValue As Object
        'Private m_iLength As Integer

        'Public Sub New(ByVal sName As String, ByVal sType As String, Optional ByVal iLength As Integer = 1)
        Public Sub New(ByVal sName As String, ByVal sType As String)
            m_sName = sName
            m_sType = sType
            'm_iLength = iLength
        End Sub
        Public Sub New(ByVal sName As String, ByVal sType As String, ByVal pValue As Object)
            Me.New(sName, sType)
            m_pValue = pValue
        End Sub
        Public Sub New(ByVal pAttribute As clsAttribute, ByVal pValue As Object)
            Me.New(pAttribute.Name, pAttribute.Type, pValue)
        End Sub

        Public ReadOnly Property Name As String
            Get
                Return m_sName
            End Get
        End Property

        Public ReadOnly Property Type As String
            Get
                Return m_sType
            End Get
        End Property
        Public Property Value As Object
            Get
                Return m_pValue
            End Get
            Set(ByVal value As Object)
                m_pValue = value
            End Set
        End Property
        'Public ReadOnly Property Length As Integer
        '    Get
        '        Return m_iLength
        '    End Get
        'End Property
    End Class
End Namespace